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INTRODUCTION 


The eranhic department of NASTRAN has received few changes since Level 17.5 
(1980) Only hidden line and shrink plots were added in 1983 and 1985 respectively. An 
attempt to straighten up the FIND and NOFIND options in 1985 was not very successful. 
Color was also added about the same time. However, the basic plotting mechanism and the 
structure of the plot file remain unchanged, and they are biased towards CDC and 
UNIVAC machines. The plot commands were built on the technology ot six bits per byte 
that make the 8-bit/byte machine very awkward to use. I he new UJ 
COSMIC/NASTRAN version, downward compatible with the older versions, tries to 
remove some of the old constraints, and make it easier to extract information from the plot 
file. It also includes some useful improvements and new enhancements. The new routine, 
available in the 1991 version include: 


1 Mew PLT1 tape with simplified ASCII plot commands and short recot ds. 

2. Combined hidden and shrunk plot. 

3. An x-y-z coordinate system on all structural plots. 

4. Element offset plot. 

5. Improved character size control. 

6 Improved FIND and NOFIND logic. , 

7. A new NASTPLOT post-processor to perform screen plotting or generate 

PostScript files. 

8. A BASIC/NASTPLOT program for PC. 


PLT1/PLT2 FILE 


Since Level 17.5 through the 1990 version, all the plotting goes to a PLT2 file which 
is described as the "general plotter tape". The structure of the plot commands in the PL 12 
file is fully described in the user’s and programmer’s manuals. The commands, originally 
designed to be used for all machines with 32-, 36- or 60-bit computer words, were 
constructed based on 6 bits per byte structure. However, for IBM, VAX, 
are using 8-bits/byte word architecture, the 6 bits per byte technology has Ion iKen 
abandoned, leaving the manuals inaccurate and misleading. To use the PLT^ file 
uraphic plotting, a user needs to write an external program to interpret those NAS I RAN 
generated plot commands, and to drive his particular plotter, it such a P l() 8 ra ^ i; ' 
already available. Normally this involves heavy bit and byte manipulation and data 
reconstruction. A disadvantage to the user is that the original bit and byte data on the 
PLT2 file cannot be printed to assist in debugging of his program. 
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t- , 1 { !n V )X , NAS , T ^N version, the PLT2 file is left alone as it is. A PLTl file is re- 
activated. (Before Leve 17.3, PLTl was used for 7-track plot tape). The PLTl file contains 
the same plot commands m ASCII format and in 130 column short records. Therefore the 
plot command data can be printed, and can be transported from one machine to another 
through normal channels. When this file is read by an external program, no data 
reconstruction from bits and bytes is required. The following table compares the two plot 


File type - sequential, formatted 
Record type 
Record length 
FORTRAN format 

Plot commands per physical record 
Data type per plot command 
No. of computer words per plot command 
Edit, print, or terminal viewing of data No 
Disc space usage, referenced to PLT2 
If tape is used - track and parity 9, Odd 

File transmission through ' PROCOMM/KERMIT' * 


PLT2 file 

No carriage Ctrl 
ASCI I/Bi nary* 
3000 bytes 
( 10( 180A4) )* 

100 

30 Bytes 
7.5 


PLTl file 

Carriage Ctrl 
ASCII 

130 columns 
(5(213,415)) 

5 

26 Decimals 

6 

Yes 

30% less 
9, Odd 

No problem 


1. ASCII record, but data stored in binary bytes. 

2. Since the record length is 3000 bytes, a format of (750A4) is 
sufficient. 

3. Data transmission of the PLT2 file using standard PROCOMM/KERMIT 
software is difficult, if not impossible. 

Two samples of NASTRAN plot commands are presented in Appendix A. The 
sample from PLTl file is clearly readable, and provides meaningful information to any 
user who wants to use the data. The sample from PLT2 file cannot be fully printed no'r 
edited, because the record is too long. Both samples were taken from a' test problem 
running on a VAX machine. 1 


HIDDEN-LINE AND SHRINK PLOTS 


NASTRAN L, d urn f osflu 2 ' D , and 3 ' D element shnnk plots were added to 
NASTFLAN in 1983 and 1985. They work very well alone, and work well together with 

other pk)t options such as label and color. However, the hidden-line plot and the element 
s rink plot are exclusive to one another. A modification of the plotting source code now 
allows the merging of the two plot options in the 1991 NASTRAN version. 


X-Y-Z COORDINATE SYSTEM 


In all previous NASTRAN structural plots, there is no information about how the 
model structure is oriented in space with respect to the basic rectangular system. A user 
can specify the viewing angle, vantage point, origin, and scale, and vet the actual plots 
contain no such information. In the 1991 version, a small x-y-z coordinate is always plotted 
at the lower right corner of each structural plot frame. This coordinate is rotated exactly 
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the same way the structural model is when subjected to different view angle, vantage point, 
and origin. Therefore, it gives the user instant information about the orientation of his 
structure in space. Of course, the x-y-z coordinate should not be present in all x-y table 
plots. 

Normally there are four lines of labels and sub-labels at the bottom ot each plot. 
The new x-y-z coordinate is placed at the right end of these four lines. Since the charactei 
size of the labels and sub-labels can be altered by the CSCALE option, the actual x-y-z 
coordinate size therefore varies accordingly. 


OFFSET PLOT 


In NASTRAN element repertoire, three elements, CBAR, CTRIA3 and CQUAD4. 
have grid point offset capability. In previous NASTRAN structural plots, all elements were 
treated equally, and they were always connected from grid points to grid points. Oltsets 
were not considered. The argument for this practice is that since the offsets are usually very 
small they will have no effect on the overall plot whether the offsets are considered or not. 
On the other hand, some users want the actual offset to be plotted such that the plots can 
help to detect any input card error. They argue that if the unintentional error is big enough, 
it will show on "the plot, and corrective action can be taken immediately. Hie 1.01 
NASTRAN will satisfy both arguments. 

The 1991 version shows the offsets two ways. 

1. In an overall structure plot that includes all elements, and the offsets are always 
included in the plot. The offset absolute distances are computed, but the true 
offset directions are not. If the offsets are small, they will hardly show on the 
plot. If an offset is unintentionally large, a line may fly off in an uncontrolled 
direction. 

2. A new ’OFFSET n’ option is added to the 1991 NASTRAN PLOT command. If 
this option is exercised, only the elements with offsets will be plotted. The offset 
distances are magnified n times each to help bring out the offset magnitudes in 
plotting. The true offset directions are also computed and applied. It color plot 
is requested, the offset legs are plotted in different color than the color of the 
elements. Element label and other plot parameters can be requested 
simultaneously with the ’OFFSET n’ option. 

In both (1) and (2), the grid points with offsets are marked bv asterisks. For 
example, a CBAR element with offsets in (2) with large n value will look like a staple, with 
asterisks at the corners 

The "OFFSET n" option is only available for undeformed plot. Default value of n is 

1 . 


CHARACTER SIZE CONTROL 


The NASTRAN User’s Manual indicates that the character size control, CSCALE 
n, is used only for the x-y plot. As mentioned above in the x-y-z coordinate discussion. 


3 


CSCALE controls also the character size of the labels and sub-labels of the structural plot. 
The factor ’n’ was used to be an integer input. When n was set to 2, the character size on 
the labels and sub-labels was 4 times larger than normal size. Any increase of n may result 
in the labels and sub-labels exceeding the plot frame size. In the 1991 NASTRAN, the 
factor ’n’ is changed to real number input with default value of 1.0. When n is set to 1 . 1 , the 
character size is increased by 10 percent. The character size is double (not four times 
larger) for n equals 2.0 


FIND/NOFIND 


The descriptions of FIND, NOFIND, PLOT and ORIGIN in NASTRAN plotting 
commands are not easily understood. They can be plot commands by themselves, or they 
(except PLOT) can be options (or parameters) of another plot commnad. Confusion and 
misuse of these commands or options are quite common. 

The FIND command (not used as an option in PLOT command) uses five 
parameters: SCALE, ORIGIN, VANTAGE POINT, REGION and SET. The PLOT 
command covers as many as 35 options or parameters, including ORIGIN and NOFIND. 
NOFIND, used only as an option in PLOT command, has no associated parameter. 
ORIGIN can be a plot command by itself, or a parameter to FIND, or an option to PLOT 
Many of the parameters to FIND, ORIGIN and PLOT are optional and they may or mav 
not have associated default values. The commands FIND and ORIGIN (not used as 
options) are optional, and need not be present in a series of plot commands. Some of the 
PLOT options or parameters are themselves linked to other options or other plot 
commands, which may or may not appear in a series of plot commands. For example, the 
SCALE and REGION parameters are linked to SCALE (plot size control), CSCALE 
(character size control), CAMERA, VIEW, and VANTAGE POINTS, anv of which mav or 
may nor appear as plot commands. 

The FIND-NOFIND-ORIGIN-PLOT picture above seems very complicated and 
confusing. To make the matter worse, some of the missing plot commands or options have 
default values, while others have none. However, the following observations, derived from 
the NASTRAN User’s Manual and from actual experimental testing, can be very helpful: 

1. If ORIGIN is not defined in a FIND card, ORIGIN ID of zero is used by 
NASTRAN. It is not a good practice to force NASTRAN to select a zero 
ORIGIN ID. 

2. No matter what ORIGIN ID’s the user used in multiple FIND cards, the first 
ORIGIN ID is the origin no. 1. The second ORIGIN ID, only if it is different 
from the first, is origin no. 2, and so on. A maximum of ten ORIGIN ID’s can be 
used. If more then ten ORIGIN ID’s are used, all the remaining ID’s go to the 
eleventh. 

3. ORIGIN ID can be re-used in a sequence of plots. In this case, the plot 
parameters and controls, such as scale, view, frame size etc., associating to the 
previous ORIGIN of the same ID, are completely replaced by those of the new 
ORIGIN data. 

4. The ORIGIN ID, requested on a FIND card, defines a number of plotting 
parameters associating with the current structure orientation in space (such as 
left, right, upper and bottom plot frame limits, view angle, vantage point, plot 
scale etc.). These data are saved, and can be recalled by the ORIGIN ID on the 
PLOT command. Note - if the current PLOT command does not specify this 
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ORIGIN ID, the data saved are not used in the current plot. npiriN m 

5 Therefore the ORIGIN ID requested in a FIND command, and the ORIGIN I D 
used by a PLOT card, are unrelated; unless the same ID .s specified by b oth 
FIND and PLOT. If the PLOT command does not speedy any OR G N ID 
observation (1) above applies. The following example shows that ORIGIN 
used by PLOT, not 50: 


FIND SCALE, ORIGIN 50, SET 1 
PLOT 


6. NOFIND causes all plotting parameters, including ORIGIN ‘g. 1 m D opboTis 
as the nrevious plot in a series of plot sequences. The NOr 1ND option is 
actually P a special case of the PLOT-ORIGIN arrangement. The following 
examples give identical results in $PLOT 2. 


$PL0T 1 

FIND SCALE, ORIGIN 50, SET 2 
PLOT ORIGIN 50 


$PL0T 1 

FIND SCALE, ORIGIN 50, SET 2 
PLOT ORIGIN 50 


SPL0T 2 
PLOT N0FIND 


$PL0T 2 

PLOT ORIGIN 50 


NOFIND did not work in 1990 and earlier NASTRAN releases as advertised in the 

isassSpssss 

AXIS data line, which is the current ORIGIN being used for the current plot. 


PROGRAM NASTPLOT 
for main-frame, mini, micro and workstation 

As mentioned in the PLT1/PLT2 FILE section above, a user needs an external 
program to read the NASTRAN general plotter tape, interpret the i plot ! 

produce the NASTRAN gr^hic^oK^ Such a program is ^sually^called a J^T. l j catet | R ant | 

SIS: \ 

SSSHe'SF- 

One common factor of the NASTPLOT programs is that they all use PLT_ file. 

A new NASTPLOT program will be included in the 1991 COSM1C/NASTRAN 
release A This new NASTPLOT program does not necessarily perform better than ai y 
existing old ones. However, it has its own virtues. 

1. It is FORTRAN written in simple and straightforward program logic. 

1 11 producerTetoonif«leCT plots, or PostScript files that can be sen. to a 
PostScript printer, or a LaserJet printer (equipped with a PostScript cartrui.e) 

for hard-copies. 
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4. All supporting routines can be easily identified. All Tektronix routines are 
prefixed by "TX", and all PostScript routines by "PS", (User can easily swap 
these routines for other plotter requirements). 

5. This program was written on a VAX, but the source code is almost machine 
independent. 


BASIC/NASTPLOT 

for PC, with MS-DOS and graphic capability 


Since the PC is almost a household product nowadays, manv offices have a few 
available already, most PC’s come with graphic capability and BASIC language, and since 
the NASTRAN PLT1 file can be transported easily from one computer system to another, 
it becomes logical to tap into this vast resource for NASTRAN advantage. To move the 
plotting to a PC is almost an instant bonus to enhance NASTRAN capability. And it can be 
done very economically. 

A new MS-DOS BASIC/NASTPLOT program was written and tested successfully 
on a VAX-PC (UNISYS/8080 chip, BASIC 3.2) combination. (AJso 286 and 386 PC’s.) 
This BASIC/NASTPLOT program, requiring no special hardware, or software, produces 
screen plots on a PC just as satisfactory, and just as last, as any expensive equipment. It 
even produces color plots if the PC is equipped with a color monitor. 4K byte memory is 
needed. However, a high resolution monitor is recommended for best results. This 
program, with complete listing in Appendix B, serves as a demonstration of tapping into the 
PC world. It can be easily converted to other non MS-DOS systems, such as the Apple and 
Macintosh. 
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APPENDIX A 

TWO SAMPLES OF NASTRAN PLOT COMMANDS 


Sample Plot Commands from a PLT2 file: 


(3000 bytes/ record) . 

-a-a-a-a-a-a-a-a-A-a-a-a-F-a-a-a-a-a-a-a-a-a-a-a-a-c-a-a-a-a-s-a-a-a-a-a-a-ra-a-a-a-a-a-a-a-a-a aaaaa.aaaaa asasa 

•a-a-a-a-a-ca-a-a-a-a-a-a-ra-a ■j'j-j-j-a-j-s-j-j-j-s-j-a-a'sa -a’D-a-a-a'a-a-a-a-a-a-a-a-a-a-a-a-a aaaaaaaaaaa 

•a-a-a-a-a-a a-a-a-a-a-a-a-a-a-a-a-A-a-a-a-a-a-a-a-a-a-a-F-a-a-a-a-a a-a-a-a-a a-a-a-a-a a a-a a-a-a a a-a a a-a a a a a a a a a 

-a-a-a-a-a-a-A-F-a-a-a-a-a-ra-a-a-a-F-a-a-a-a-a-a -a-a-a-a-a-a-a-a-ac-a-a-a-a-a-a-a-a-a-aa-a-aa-a-aaa a a a a a a a a a a 

•a-a c-a-a-a-a-o-a-D-a-a-a-c-a-a-a-a-a-a-a-a-a-a-a-a-a-a-a-a-a-a a-a-a-a-a-a-a-a a-a-a-a-a-a-a-a-a-a-a a-a-a-a a a a a a a a a a 

•a-a-a-a-a-a-a-a-a -a-a-a-A-a‘a-a-a-a-a-a-a-a-F-ra-a-a-a-a-a-a-c-a-a‘a -aa-a-a-a-a-a-a-a-a-a-aaaaaa a a a a a a a a a 


Sample Plot Commands from a PLT1 file: 


<130 

col umns/ record) 






1 

0 

1 

1023 

1023 

0 

2 

2 

0 

0 

6 

1 

0 

1009 

1019 

1009 

6 

1 

0 

1006 

6 

1 

0 

994 

1019 

994 

6 

1 

0 

991 

6 

1 

0 

979 

1019 

979 

6 

1 

0 

976 

6 

1 

0 

964 

1019 

964 

6 

1 

0 

961 

6 

1 

0 

604 

1019 

604 

6 

1 

0 

601 

6 

1 

0 

589 

1019 

589 

6 

1 

0 

586 

6 

1 

0 

574 

1019 

574 

6 

1 

0 

571 

5 

1 

198 

555 

198 

550 

5 

1 

198 

550 

5 

1 

202 

550 

203 

549 

5 

1 

203 

549 

5 

1 

214 

555 

211 

555 

5 

1 

211 

555 

5 

1 

287 

538 

286 

539 

5 

1 

286 

539 

5 

1 

283 

533 

286 

533 

5 

1 

286 

533 

6 

1 

0 

3 

1019 

3 

6 

1 

0 

6 

6 

1 

0 

18 

1019 

18 

6 

1 

0 

21 

6 

1 

0 

33 

1019 

33 

6 

1 

0 

36 

5 

1 

121 

1012 

122 

1011 

5 

1 

122 

1011 

5 

1 

1018 

1017 

1018 

1011 

5 

1 

1018 

1011 

15 


1 1 

9 59 12 59 

5 

1 

l 12 5<; 

5 

1 

17 

59 

17 

56 

5 

1 

17 

56 


0 

0 

3 

2 

0 

0 

0 

0 

16 

1 

1019 

1006 

6 

1 

0 

O 

O 

1019 

1003 

6 

1 

1019 

991 

6 

1 

0 

988 

1019 

988 

6 

1 

1019 

976 

6 

1 

0 

973 

1019 

973 

6 

1 

1019 

961 

6 

1 

0 

958 

1019 

958 

6 

1 

1019 

601 

6 

1 

0 

598 

1019 

598 

6 

1 

1019 

586 

6 

1 

0 

583 

1019 

583 

6 

1 

1019 

571 

6 

1 

0 

568 

1019 

568 

15 

1 

197 

549 

5 

1 

197 

549 

195 

549 

5 

1 

206 

549 

5 

1 

206 

549 

207 

550 

5 

1 

210 

554 

5 

1 

210 

554 

210 

553 

5 

1 

283 

539 

5 

1 

283 

539 

282 

538 

5 

1 

287 

534 

5 

1 

287 

534 

287 

536 

5 

1 

1019 

6 

6 

1 

0 

9 

1019 

9 

6 

1 

1019 

21 

6 

1 

0 

24 

1019 

24 

6 

1 

1019 

36 

6 

1 

0 

39 

1019 

39 

6 

1 

126 

1011 

5 

1 

126 

'ion 

127 

1012 

5 

1 

1017 

1011 

5 

1 

1017 

1011 

1019 

1011 

0 

0 

9 12 53 

5 


1 12 53 12 59' 5 


20 

56 

5 

1 

20 

56 

17 

56 

5 

1 


0 

1015 

1019 

1015 

6 

1 

0 

1012 

1019 

1012 

0 

1000 

1019 

1000 

6 

1 

0 

997 

1019 

997 

0 

985 

1019 

985 

6 

1 

0 

982 

1019 

982 

0 

970 

1019 

970 

6 

1 

0 

967 

1019 

967 

0 

955 

1019 

955 

6 

1 

0 

952 

1019 

952 

0 

595 

1019 

595 

6 

1 

0 

592 

1019 

592 

0 

580 

1019 

580 

6 

1 

0 

577 

1019 

577 

197 

555 

199 

555 

5 

1 

199 

555 

198 

555 

195 

549 

194 

550 

5 

1 

202 

555 

202 

550 

207 

550 

207 

555 

5 

1 

215 

554 

214 

555 

210 

553 

211 

552 

5 

1 

211 

552 

214 

552 

282 

538 

282 

534 

5 

1 

282 

534 

283 

533 

287 

536 

285 

536 

16 

1 

0 

0 

1019 

0 

0 

12 

1019 

12 

6 

1 

0 

15 

1019 

15 

0 

27 

1019 

27 

6 

1 

0 

30 

1019 

30 

0 

42 

1019 

42 

6 

1 

0 

45 

1019 

45 

127 

1012 

127 

1016 

5 

1 

1017 

1016 

1018 

1017 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

12 59 15 59 5 

1 

l 22 59 17 5 

17 

56 

17 

53 

5 

1 

17 

53 

22 

53 
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APPENDIX B 


BASIC/NASTPLOT PROGRAM LISTING 

10 'PROGRAM NASTPLOT, MS-DOS PC/BASIC VERSION 
20 'BASIC 3.2, WITH EGA OR CGA GRAPHIC CAPABILITY 
30 'NO PARTICULAR HARDWARE OR SOFTWARE REQUIRED 
40 'INPUT: NASTRAN PLT1 FILE (NOT PLT2 FILE) 

50 'WRITTEN BY G . CHAN/UN I SYS 11/90 


60 

'TO 

RUN THIS PROGRAM 1. BASIC 


70 

/ 

2. LOAD "NASTPLOT 

80 

/ 

3. F2 or RUN 

"NASTPLOT 

90 

/ 

4. answer all 

questions asked 

100 

' 

AT END 5. SYSTEM 


110 

KEY 

OFF: CLS : PRINT "": PRINT "" 


120 

? " 

**** 11 


130 

? " 

■k 

*» 

140 

? " 

* 


150 

? " 

* N A 

S T P L 0 T" 

160 

? " 

* 

*n 

170 

? 11 

* 

* " 

180 

? " 

**** " 


190 

200 

^ nil 

? " 

PC/BASIC MS-DOS GRAPHIC 

SYSTEM RELEASE - NOV. 1990" 

210 

220 

? ” 
? " 

WRITTEN BY UNISYS/ 

FOR COSMIC" 

230 

? " 

NASTRAN MAINTENANCE GROUP 

UNIVERSITY OF GEORGIA" 

240 

? " 

HUNTSVILLE, ALABAMA 

ATHENS, GEORGIA 30602" 

250 

? H 


PHONE: (404) 542-3265" 

260 

PRINT "": PRINT "" 

270 

? " 

*** AT THE END OF EACH PLOT 

, HIT C/R TO CONTINUE ***" 

280 

? " 

= = = 

11 


290 PRINT "" 

300 DEFINT I-J,Z 
310 OPTION BASE 1 
320 DIM Z (30) 

330 LET YES$=" YES" : LET Y$ = "Y": LET YSS$ = "yes": LET YS$="y" 

340 F =0.30 

350 JX=640-480 : JY=320 '480 & 320 TO CENTER PLOT, 640 TO REVERSE IMAGE 

360 '*** CURRENTLY SET UP FOR EGC WITH HI -RESOLUTION MONITOR - SCREEN 9 
370 J 1 2=1 

380 INPUT "ENTER PLOT FILE FULL NAME: ",FIL$ 

390 OPEN "I", 1, FILS 

400 INPUT "ENTER PLOT NUMBER, ZERO TO QUIT: ",ID 
410 IF ID =0 GOTO 880 
420 IF J 1 2 = 2 GOTO 470 

430 I N PUT # 1 , Z(1),Z(2),Z(3),Z(4),Z(5),Z(6),Z(7),Z(8),Z(9),Z(10),Z(11),Z(12),Z( 
435 ' Z ( 1 ) , Z ( 2 ) , . . . , Z (30) ALL ON ONE LINE 

440 IF EOF ( 1 ) GOTO 800 

450 IF Z(l) <>1 GOTO 420 'NEW PLOT BEGINS WITH ONE IN Z(l) 

460 IF Z( 1 9 ) = 1 6 GOTO 420 'SKIP FIRST ID PLOT IF IT IS PRESENT 
470 I3=Z(3) 'SAVE PLOT NUMBER IN 13 

480 PRINT " . . .WORKING" 
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'SEARCH FOR REQUESTED PLOT NUMBER 


490 IF I3oID GOTO 420 
500 11=7: I E=0 
510 CLS 

520 IF J 1 2 = 2 GOTO 590 
530 SCREEN 9 
535 'SCREEN 2 
540 COLOR 6,0 
550 GOTO 600 

560 INPUT # 1 , Z(1),Z(2),Z(3),Z(4),Z(5),Z(6),Z(7),Z(8),Z(9),Z(10),Z(11),Z(12),Z( 

v n 1 I AH Alir 1 THir 


'WHEN J 1 2 = 2 , CURRENT RECORD IS ALREADY READ 
'EGC with EGD, Advanced screen A (640X350) 
'CGA and different valus for F,JX and JY 
'SET COLOR TO ORANGE AND BLACK 


565 


, Z (30) ALL ON ONE LINE 


Z(1),Z(2), 

570 IF EOF ( 1 ) GOTO 700 
580 11=1 
590 J 1 2= 1 

600 FOR 1=11 TO 30 STEP 
610 IC=Z(I) 

620 IF IC=1 GOTO 710 
630 IF IOIO THEN IC=IC- 10 
640 IF IC<>5 AND IC<>6 GOTO 680 

650 IP=Z(I+1) 'IP IS PEN CONTROL, SUCH AS COLOR. 

660 JR=JX+Z( I+2)*F : JS=JY-Z( I+3)*F : JT=JX+Z( I+4)*F : JU=JY-Z( I+5)*F 
670 LINE ( JR, JS) - ( JT, JU) , IP 
680 NEXT 


'LOOP FOR 5 COMMANDS, 6 WORDS EACH 
'IC IS PLOT COMMAND 
'A NEW PLOT IF IC IS ONE 


690 GOTO 560 
700 I E=1 
710 BEEP 
720 INPUT " " , Q$ 

730 IF I E=1 GOTO 800 

740 CLS 

750 J12=2 

760 GOTO 400 

800 IF 13=0 THEN PRINT 

810 IF 13=1 THEN PRINT 

820 IF 1 3 > 1 THEN PRINT 


'EOF ENCOUNTERED AT END OF A PLOT 
'END OF A PLOT 
'C/R TO CONTINUE 


'CLEAR SCREEN 

'RESET FLAGS. FIRST RECORD OF NEXT PLOT ALREADY READ 
'LOOP BACK FOR NEXT PLOT 
EOF ENCOUNTERED. THERE IS NO PLOT IN " ; FI L$ 

EOF ENCOUNTERED. THERE IS ONLY ONE PLOT IN ";FIL$ 

EOF ENCOUNTERED. THERE ARE ONLY" ; I3”PLOTS IN ";FIL$ 

830 INPUT "START ALL OVER AGAIN" ;Q$ 

840 IF Q$oYES$ AND Q$oY$ AND Q$oYSS$ AND Q$oYS$ GOTO 880 


850 CLOSE #1 
860 J 1 2= 1 : II =1 

870 GOTO 390 'CYCLE BACK FOR MORE PLOT 

880 PRINT "END OF JOB" 

890 COLOR 7,0: CLS 'RESET COLORS TO BLACK AND WHITE 

900 END 
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